home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
nan_news
/
vol2
/
no2
/
dim.prg
< prev
next >
Wrap
Text File
|
1987-12-08
|
378b
|
20 lines
* CREATING TWO-DIMENSIONAL ARRAYS
* F. Ho
*
* The example below declares a two-dimensional array:
clear
ITEMS = 2 && or you may define ITEMS
ELEMENTS = 7 && and ELEMENTS at run-time
declare WEEK[ITEMS * ELEMENTS]
WEEK[DIM2(1,2)] = "Sun"
? WEEK[DIM2(1,2)]
quit
function DIM2
parameters X,Y
return(((X - 1) * ELEMENTS) + Y)